home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amosprog.lha / Demko1.AMOS / Demko1.amosSourceCode
AMOS Source Code  |  1995-04-04  |  662b  |  41 lines
  1. Hide 
  2. Degree 
  3. Screen Open 1,640,512,16,Hires+Laced
  4. Curs Off : Flash Off : Cls 0
  5. KONIEC1=False : KONIEC2=False
  6. 'Palette 0,$FFF
  7.  
  8.  
  9.  
  10. XS1=160*2
  11. YS1=128*2
  12. RX1=100*2
  13. RY1=100*2
  14. KROK1#=0.5
  15. XS2=160*2
  16. YS2=128*2
  17. RX2=50*2
  18. RY2=50*2
  19. KROK2#=1.05
  20.  
  21. Degree 
  22.  
  23. For I=0 To 15
  24. Colour I,I*256
  25. Next 
  26. KOLOR=1
  27. KONIEC=False : KONIEC2=False
  28.  
  29. Repeat 
  30.  
  31. Add KOLOR,1,1 To 15 : Ink KOLOR
  32. ALFA1#=ALFA1#+KROK1#
  33. If ALFA1#>=360 Then ALFA1#=0 : KONIEC1=True
  34. ALFA2#=ALFA2#+KROK2#
  35. If ALFA2#>=360 Then ALFA2#=0 : KONIEC2=True
  36. X1=XS1+RX1*Sin(ALFA1#) : Y1=YS1+RY1*Cos(ALFA1#)
  37. X2=XS2+RX2*Sin(ALFA2#) : Y2=YS2+RY2*Cos(ALFA2#)
  38. Draw X1,Y1 To X2,Y2
  39. Until KONIEC1=True and KONIEC2=True
  40. Shift Up 1,1,15,1
  41. Wait Key